home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / xlib.zip / FMODES.PAS < prev    next >
Pascal/Delphi Source File  |  1992-09-05  |  2KB  |  31 lines
  1. (*****************************************************************************)
  2. (*                                                                           *)
  3. (*        Filename        : FMODES.PAS                                       *)
  4. (*        Autor           : Stefan Boether / Compuserve Id : 100023,275      *)
  5. (*                                                 FidoNet :  2:242/200      *)
  6. (*                                   Internet: 10023.275@CompuServe.COM      *)
  7. (*        System          : TURBO 6.00 / MS-DOS                              *)
  8. (*        Aenderung       :                                                  *)
  9. (*        wann     was                                                wer    *)
  10. (*---------------------------------------------------------------------------*)
  11. (*****************************************************************************)
  12. (*        Beschreibung:  Constants for file modes under DOS                  *)
  13. (*****************************************************************************)
  14. {Header-End}
  15.  
  16. UNIT FModes;
  17.  
  18. INTERFACE
  19.  
  20. CONST  fmReadOnly   =   0;
  21.        fmWriteOnly  =   1;
  22.        fmReadWrite  =   2;  (* Turbo standard-mode for binary files *)
  23.  
  24.        fmDenyNone   =  16;  (* Andere dürfen File benutzen              *)
  25.        fmDenyWrite  =  32;  (* Andere dürfen lesen aber nicht schreiben *)
  26.        fmDenyAll    =  64;  (* Andere dürfen Files nicht benutzen       *)
  27.        fmDenyRead   =  96;  (* Andere dürfen schreiben aber nicht lesen *)
  28.  
  29. IMPLEMENTATION
  30. END.
  31.